home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / FLOAT / FPINIT.ASM < prev    next >
Assembly Source File  |  1989-01-24  |  2KB  |  67 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAIMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Last Update 5 Oct 87   Version 2.0
  7. ;
  8. fpinit  ident   2,0
  9. ;
  10. ; MOTOROLA DSP56000/1 FPLIB - VERSION 2
  11. ;
  12. ; FPINIT - FLOATING POINT LIBRARY INITIALIZATION SUBROUTINE
  13. ;
  14. ; Entry point:  fpinit  Initialize address pointers and shift constant
  15. ;                       table for DSP56000/1 floating point subroutine
  16. ;                       library.
  17. ;
  18. ; Input variables:      none
  19. ;
  20. ; Output variables:
  21. ;
  22. ;       n0 = base address of shift constant table
  23. ;       m0 = $ffff  (linear address modifier)
  24. ;
  25. ;       shift constant table - stores multiplication constants for
  26. ;                              denormalization operations.
  27. ;
  28. ;       The X or Y data memory space (without the colon) used for the
  29. ;       shift constant table must be specified in single quotes by a
  30. ;       DEFINE directive for the global symbol "fp_space" and the base
  31. ;       address of the shift constant table must be specified for the
  32. ;       global symbol "fp_temp" via an EQU or similar directive.  An
  33. ;       example is given below.
  34. ;
  35. ;               define  fp_space        'x'
  36. ;       fp_temp equ     $0000
  37. ;
  38. ; Error conditions:     none
  39. ;
  40. ; Memory requirements:  28 locations in "fp_space" memory space
  41. ;
  42. ; Alters Address Registers
  43. ;               n0      m0
  44. ;
  45. ; Alters Program Control Registers
  46. ;       pc      sr
  47. ;
  48. ; Uses 0 locations on System Stack
  49. ;
  50. ;
  51.         org     fp_space:fp_temp
  52.         ds      4       ;temporary storage locations
  53. fp_23   dc      23      ;exponent delta limit
  54. fp_ebias dc     $001fff ;fixed point exponent bias
  55. fp_emax dc      $003fff ;maximum exponent
  56. fp_shift dc     $800000,$c00000,$e00000,$f00000,$f80000,$fc0000,$fe0000,$ff0000
  57.         dc      $ff8000,$ffc000,$ffe000,$fff000,$fff800,$fffc00,$fffe00,$ffff00
  58.         dc      $ffff80,$ffffc0,$ffffe0,$fffff0,$fffff8,$fffffc,$fffffe
  59. fp_m1   dc      $ffffff
  60. ;
  61.         org p:
  62. fpinit  move    fp_space:fp_m1,m0       ;initialize linear address modifier
  63.         move    #fp_shift,n0    ;initialize base address of shift constant table
  64.         and     #$f3,mr         ;reset scaling modes (S1,S0)
  65.         and     #$bf,ccr        ;reset overflow flag (L bit)
  66.         rts
  67.